program pointer;

{$APPTYPE CONSOLE}



uses
  SysUtils;

type
  arr=array[1..100] of integer;

var
  b:^arr;
  i, n: integer;

begin
  new(b);
  for i:=1 to 100 do
    b^[i]:=i;
  dispose(b);

end.
